﻿Public Class frmConn
    Private Parame As lbGlobalcom.cParametrizacion
    Private Sub btnSalvar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSalvar.Click
        My.Settings.Save()
        Parame.Valor = txtVrLegalizacion.Text
        Parame.Salvar()
        MessageBox.Show("Se salvo información con exito", "Salvar Datos", MessageBoxButtons.OK, MessageBoxIcon.Information)
    End Sub

    Private Sub btnBuscaPrinter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBuscaPrinter.Click
        Try
            Dim fLPrint As New fListaPrinters
            If fLPrint.ShowDialog = Windows.Forms.DialogResult.OK Then
                txtPrinterTirilla.Text = fLPrint.NombrePrinter
            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub


    Private Sub frmConn_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            Parame = New lbGlobalcom.cParametrizacion("VRLEGA", "LISTAS")
            txtVrLegalizacion.Text = CDbl(Parame.Valor)
        Catch ex As Exception

            MessageBox.Show(ex.Message)
        End Try
    End Sub
End Class